home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / 3MINCPY.ARC / C35 1 (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  879 b   |  42 lines
  1. 2 .BYTE 011 008 010 000 158 050
  2. 5 .BYTE 048 054 049 000 000 000
  3. 6 LDA #$17:STA $D018;LOWER CASE CHARACHTERS
  4. 7 NOP:NOP
  5. 8 JMP START
  6. 10 PRGDSK STX MW+4;#$05 (null)ES HERE
  7. 20 STY CZ22;HOLDS # OF BLOCKS TO WRITE TO DISK
  8. 30 ASL;IF A WAS 0 THEN BEGINING BLOCK WOULD BE $0C9B 0 TIMES 2 = 0
  9. 40 STA CZ23
  10. 50 MW1 LDX CZ23
  11. 60 LDA MWADD,X
  12. 70 STA CZFD;SET UP ZERO PAGE ADDRESSING IN $FD & $FE
  13. 80 LDA MWADD+1,X
  14. 90 STA CZFE
  15. 100 INC CZ23;INC 2 TIMES FOR NEXT BLOCK
  16. 110 INC CZ23
  17. 120 LDY #$00
  18. 130 MW2 STY MW+3;SEND W-W 05 00 20 TO DISK
  19. 140 JSR LIST
  20. 150 LDX #$00
  21. 160 L1 LDA MW,X
  22. 170 JSR OUT
  23. 180 INX
  24. 190 CPX #$06
  25. 200 BNE L1
  26. 210 LDX #$20
  27. 220 L2 LDA (CZFD),Y;SEND PROGRAM TO DISK
  28. 230 JSR OUT
  29. 240 INY
  30. 250 DEX
  31. 260 BNE L2
  32. 270 JSR UNLIS
  33. 280 CPY #$00
  34. 290 BNE MW2
  35. 300 INC MW+4
  36. 310 DEC CZ22
  37. 320 BNE MW1
  38. 330 RTS
  39. 340 MW .BYTE 77 45 87 00 00 32
  40. 350 MWADD .BYTE 155 012 155 013 155 014 035 015 035 016
  41. 370 .FILE C35 2
  42.